home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 3 / Amiga Format CD03 (1996-07-04)(Future Publishing)(GB)(Track 1 of 6)[!][issue 1996-08].iso / s / lharcdir < prev    next >
AmigaDOS Script File  |  1996-05-20  |  675b  |  25 lines
  1. .key Dir/A,DestDir/A,Pattern
  2. .bra {
  3. .ket }
  4. .def Pattern="#?"
  5.  
  6. Echo "Archiving:'{Dir}' in '{DestDir}' with '{Pattern}'"
  7.  
  8. CD "{Dir}"
  9. CD /
  10. Set HomeDir `CD`
  11. Set HomeDir `TackOn "$HomeDir" ""`    ; add the ending "/" if neccesary
  12. Set ArcDir `BaseName "{Dir}"`
  13. Set ArcPathName `TackOn "{DestDir}" "$ArcDir"`
  14.  
  15. FailAt 21    ;Don't stop script if a command failed
  16. ;LhA  [-options]  <Command>  <Archive> [[HomeDir] FileSpec] [@file] [destdir]
  17. $LhArc -a -r -x a "$ArcPathName" "$HomeDir" "$ArcDir.info" "$ArcDir/{Pattern}"
  18. IF $RC GT 0
  19.     Echo "Error during compression of {Dir}."
  20.     Say "Error during compression of {Dir}."
  21.     Ask "Press RETURN..."
  22. ELSE
  23.     Say "Compression of {Dir} finished."
  24. EndIf
  25.